dr='n:'
f0='bjsPATI.dbf'
f1='PATIENT'
sele 1
use &dr&f1
zap
appen from &dr&f0

